home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 11 / Cream of the Crop 11-2.iso / extra_2 / starsdos.zip / STARS.PAS < prev   
Pascal/Delphi Source File  |  1995-10-30  |  1KB  |  64 lines
  1. uses graph,crt;
  2.  
  3. type
  4.     stepup = ^location;
  5.  
  6.     location =
  7.     record
  8.           x, y  : integer;
  9.           color : word;
  10.           next  : stepup;
  11.     end;
  12.  
  13. var
  14.    grdriver, grmode : integer;
  15.    number, counter  : longint;
  16.    stars, temp      : stepup;
  17.    tmp1, tmp2, tmp3 : byte;
  18.    first            : stepup;
  19.    errornum         : integer;
  20.  
  21. begin
  22.      if paramcount < 1 then number := 10000 else
  23.      begin
  24.           val(paramstr(1), number, errornum);
  25.           if errornum <> 0 then
  26.           begin
  27.                writeln('Bad Number');
  28.                halt;
  29.           end;
  30.      end;
  31.  
  32.      grdriver := detect;
  33.      initgraph(grdriver, grmode, '');
  34.  
  35. repeat
  36.      new(stars); first := stars;
  37.  
  38.      for counter := 1 to number do
  39.      begin
  40.           stars^.x := random(getmaxx);
  41.           stars^.y := random(getmaxy);
  42.           stars^.color := random(getmaxcolor);
  43.           putpixel(stars^.x, stars^.y, stars^.color);
  44.           temp := stars;
  45.           new(stars);
  46.           temp^.next := stars;
  47.           gotoxy(1,1);
  48.           writeln(memavail);
  49.      end;
  50.  
  51.      stars := first;
  52.  
  53.      for counter := 1 to number do
  54.      begin
  55.           putpixel(stars^.x, stars^.y, 0);
  56.           temp := stars;
  57.           dispose(temp);
  58.           stars := stars^.next;
  59.           for errornum := 1 to 75 do delay(0);
  60.      end;
  61. until keypressed;
  62.  
  63.      closegraph;
  64. end.